home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / e / openurl-e.lha / OpenURL / openurlex.e < prev   
Text File  |  1999-03-01  |  377b  |  27 lines
  1. MODULE 'openurl', 'libraries/openurl', 'utility/tagitem'
  2.  
  3. PROC main()
  4.  
  5. IF arg[]<1
  6.   WriteF('not enough arguments\n')
  7.   RETURN
  8. ENDIF
  9.  
  10. WriteF('\s\n',arg)
  11.  
  12. IF openurlbase:=OpenLibrary('openurl.library',0)
  13.  
  14.   use_url()
  15.   
  16.   CloseLibrary(openurlbase)
  17. ELSE
  18.   WriteF('couldnt open library\n')
  19. ENDIF
  20.  
  21. ENDPROC
  22.  
  23. PROC use_url()
  24.   UrL_OpenA(arg,[URL_Launch,1,URL_Show,1]:tagitem)
  25. ENDPROC
  26.  
  27.